home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 3-Presentations / Apple Computer Inc. / Industry Competition / K-12 Interface Study / AmigaWr / AmigaWr.rsrc / BITD_1103 (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-06-24  |  4KB  |  130 lines
  1.                                                                                                                                            ELSECALLEOF<0x20><0x20>CHR$ELSENEXTLETLENLETWENDLENLETSQRLETSQRSINWENDSINVALSINWENDSQRSINWENDNEXT                                                                                                                                                             <0x7e><0x20><
  2. <0x9e,0x00><0x20>STR$SQR<0x7e>STR$47305STR$<0x49><0x49>STR$<0x49>STR$<0x49><0x49>STR$STR$EOFSTR$<0x7d>EOFvarffffb78e<
  3. labelffffa0a0CALL<0x174670a>CDBLCHR$WRITEELSEIF<0x52><0x52><0x7d>><0x9e,0x00><0x1746715>>><0x51>\><0x4d>WRITESPACE$WENDSQRLEN<0x20><0x20>ELSE<
  4. 142EOFCHR$~<0x52>ELSEIF~9k4GAREA<0x4d>STATIC<0x49><0x7d><0x7c><0x7f>&Hb9a1CLNG\\<0x4d><0x4d>AREASQRWRITESQREOF<0x20><
  5. 0<0x20>ELSECHR$EOF<0x52><0x52>j40<0x1746753><0x1746754>fSGNRNDRND<0x50>'<0x7f><0x174675c>''<0x7f>FN&H56b6><0x52><0x49><0x7e>SQRlabelffff8eb7LINE<
  6. <0x174676f>CALL<0x20>\<0x20>><0x20><0x1746776>&Ha05<0x174677a>MID$<0x7e>TANlabel0000                                                                                                                                                                                                                                                               <0x7e><0x7d>&Ha188<0x17467b7>E<0x48>>><0x52>WRITE<0x3b>SQRSQREOF<
  7. -2.43122e-19>ELSEIF4<0x17467cc>&Ha0akSGNTANTANSTATIC\<0x7f><0x7d><0x7d><0x7f>FNCOMMON&Hc89<0x49>\<0x4d><0x52><0x7e>WRITE
  8. CHR$<
  9. !CHR$LINE\<0x20>>LINE44<0x17467f2><0x17467f3><0x17467f4>SGNSPACE$RNDRNDSTATIC<0x7f><0x7f>STATIC<0x7d><0x7d>FNCOMMONE<0x1746802><0x1746803>G<0x3b>><0x52>WRITENEXTSQRWEND<
  10. !<0x20>EOFCHR$<0x20>>WEND44&Ha0dIFSGNTANTANSTATIC<0x7d><0x7f><0x7f>STATIC<0x7d>STRING$COMMONE&H40df<0x49><0x52>SQRWRITESQRWENDXOR
  11. <0xfd,0x00><0x1746835>CHR$EOFCHR$WRITE>CDBL<0x7e><0x174683d><0x174683e><0x174683f><0x1746840>IFSINMID$SGN<0x49>>\'<0x49>'Y2<0x7e>&H704<0x1746851>WRITE<0x51>MKL$WRITENEXTSQR<
  12. !CALLEOF_LINE><0x20>44&H60dIFAREA<0x50><0x50>USING-<0x7f><0x7d>USING<0x7f>RIGHT$COMMONEE<0x1746874><0x1746875><0x1746876>WRITE>NEXTWRITESQRLINE<
  13. <0x174687f><0x20><0x20>CHR$ELSE>LEN<0x1746886>9<0x1746888><0x1746889><0x174688a>4QHkGGk|G|G4<0x1746897>&Hd0d<0x174689b><0x174689c>ELSEIF<0x52>WRITESINNEXTLINE<
  14. <0x17468a5><0x20>EOF^WRITE>EOF<0xfd,0x00>     E<0x17468e3>ECOMMONEE<0x7e>&H90d&H507WRITE<0x51>WRITEWRITENEXTSQR<
  15. <0x17468f7>CHR$<0x20>q<0x20>>CHR$<0x2e,0x00><0x1746900><0x1746901><0x1746902><0x1746903><0x1746904>!<0x7e><0x1746907>var0a06<0x174690b><0x174690c><0x174690d><0x174690e>       WRITE<0x52>                                                                                                                                                                                       NEXT<
  16. <0x1746985><0x20>LEN^<0x20>>ELSE<0x174698c>4<0x7c><0x174698f>3<0x1746991><0x1746992>&Ha0d&Hd0c<0x1746999>&Ha0d<0x174699d><0x174699e><0x174699f>ELSEIF<0x52>NEXTWRITENEXTLINE<
  17. <0x17469a8>CHR$LEN<0x20>WEND>LINE<0x17469af>4<0xbd,0xfffffffb>
  18. <0x17469b4><0x7c><0x17469b6>label070d<0x17469ba><0x7e><0x17469bc><0x17469bd><0x17469be><0x17469bf>WRITE<0x52>SINWRITESQRLET<0x7e>
  19. *
  20. WRITE>q<0x17469d1><0x17469d2>&Hfd0d<0x17469d6>&Hd0d<0x17469da><0x17469db><0x17469dc>4<0x17469de><0x17469df><0x17469e0><0x17469e1><0x17469e2><0x17469e3>!<0x17469e5><0x4d><0x52><0x7e>WRITE
  21. SQR<
  22. WRITE>LINE<0x17469f5><0x17469f6>&Hfd0d<0x17469fc>&H7f9<0x1746a00>WRITE<0x52>SINWENDWRITECHR$/
  23. <0x7d>
  24. <0x20>>LEN<0x1746a16>4<0x1746a18><0x7d><0x1746a1a>var0a0d<0x7d><0x1746a1f><0xbd,0xfffffffb><0x4d><0x52>WRITEWENDNEXTSQR<
  25. <0x1746a2e>CALLCHR$_LET>WRITE4MOD<0x1746a37>
  26. <0x1746a39><0xbd,0xfffffffb>1<0x1746a3d>                                                                                                                                                                                               <0x52>SINWRITE                                                                                                                                                                                             LENCHR$CHR$<0x20><0x20>LINE<0x20>CHR$<0x20>IMP
  27. WRITE>ABS<0x1746ac4><0x1746ac5>&Hff0d<0x9d,0x00>var070a<0x7c><0x1746acf><0x1746ad0>4<0x1746ad2>!4<0x4d><0x52>SQRWENDSQRSQRLENSQR<0x7e><0x20><0x1746adf>EOFEOFELSEEOF<0x20>IMP
  28. EOF>ELSEIF4<0x1746aef><0x1746af0><0x9d,0xfffffffb>
  29. <0x1746af4><0x9d,0xfffffffb><0x1746af7>!<0x1746af9>WRITE<0x52>SINWRITEWENDWEND<0x7e>LINE<0x1746b02>LEN<0x20><0x20>LINE<0x20>ELSE<0x20>IMP
  30. <0x1746b0c>CHR$EOFCHR$LINE>CHR$<0x7e><0x1746b14>
  31. <0x1746b16><0x7c><0x1746b18>var0707<0x9d,0x00>'<0x1746b1f><0x1746b20><0x52><0x52>SINWENDWRITECHR$LINELINE<0x20><0x20>LINE<0x20>LINE<0x20>LENCALL<0x20><0x20>CALLEOFCALLELSEELSECALLCHR$<0x20>EOFELSECALLCHR$ABSELSE>WEND44<0x1746b45><0x1746b46><0x9d,0xfffffffb><0x1746b4b><0x1746b4c><0x1746b4d>                                       <0x1746b82><0x1746b83><0x1746b84>WRITE<0x52>NEXTWENDSQRLINELINE                                                                                                                                                                                       <0x20>EOFLINE<0x20><0x20>LINECHR$CHR$CALLCHR$CALLELSEELSE<0x20><0x20>CHR$<0x20>ELSECALLEOFq<0x20>><0x20><0x1746bda><0x1746bdb>&Hf80d
  32. <0x1746be0><0x9d,0xfffffffb><0x49><0x4d>WRITEWRITESQRSQR<0x7d>LINElabelffffa09fWEND<0x7e><0x20>5CALLEOFCVIEOF<0x20>ELSECHR$<0x20>EOFCVIELSEELSE<0x20>LINE^LINE>ELSEIF4&Ha04!<0x7e><0x1746c0e>
  33. <0x1746c10><0x7d><0x1746c12>7!<0x1746c15><0x1746c16>&Hc04<0x1746c1a>!<0x1746c1c>WRITE<0x51>SINWRITEWRITEWENDEOFEOF<0x20>EOFCALLEOF<0x20>CVI<0x20>CHR$CALLELSE<0x20>EOF<0x20>CALLCHR$CHR$LINECALLELSE<0x20>tEOF^CHR$>WRITE<0x1746c3f><0x1746c40><0x1746c41><0x1746c42><0x1746c43><0x1746c44>&Ha0a<0x1746c48><0x1746c49><0x1746c4a><0x1746c4b><0x7c><0x1746c4d>75<0x1746c50><0x1746c51>4<0x52>ELSEIFNEXTWRITEELSEIFWENDWENDWRITELETWRITELET                                                                                                                                                                                               CHR$LINECALLABS<0x20>CHR$LET<0x7e>WENDLETWENDLET<0x7d>LET<0x1746ca2>ELSEIFELSEIFLETGOTOWHILE<0x4d>WHILEWHILEUSING
  34. -PTAB9USINGUSING<0x7f><0x7f>-VALkINPUTWRITEABS~~<0x20>ELSE~_WENDCVI<0x20>EOF<0x20>EOFRaRqa<0x7e><0x20><0x1746cd1>RkEOFEOFCDBLSQR<0x51>>><0x51>\<0x7f><0x7e>>3<0x7f>-REM∫¶≈“˜È∞¶jY¿èj2j∑kkΩQ4öøùt†¿ù
  35. !!QÈÈH~Õû“ôQ˝º~ȺG!MÈøHE!.…f.EffµG
  36. Q√ΩÉø“R
  37.  
  38. GȪ∏∑“4j∏è
  39.                                                                                                                                                                                                 EOF2&Hc054SQRSQRk2&Hca9WRITE<0x1746d90>4j<0x1746d93>4j<0x1746d96>4IF<0x1746d99><0x1746d9a>9SQRLINE_CALLWRITE<0x52>3403^<0x1746da6>597744!<0x1746dac>NEXT4<0x1746daf>lWEND<0x1746db2><0x1746db3>GINKEY$WENDLETDATAWRITE<0x52>ABS464<0x1746dbf>4<0x52>>Q4H<0x52>ELSEIF~49QQGOTOWRITE6G5<0x1746dd2>6GOTOWRITEWRITECHR$ABSWRITE<0x52>4<0x1746ddc>LENR<0x1746ddf>53886<0x1746de3><0x1746de4>4WEND4<0x1746de8>Ql<0x1746deb><0x1746dec>HWRITELINE<0x3b>CHR$ELSEIF<0x52>949G<0x1746df8>9><0x52>G<0x1746dfd>Q\WRITE44G~<0x52>ELSEIF444<0x1746e0a>G<0x20>WRITE                                                                                                                                     <0x20><0x52>?<0x1746e45>99<0x1746e48>H<0x52>Q4<0x1746e4d>4k33414<0x1746e54>!9SINVALSQRDATAWRITE<0x52>~<0x1746e5e>9~<0x1746e61><0x1746e62>WRITE>l<0x1746e66>4ELSEIF>k<0x1746e6b>&H36d2>l4<0x1746e72><0x1746e73>~WENDWRITEWENDCALL~ABSWRITE<0x52>(4<0x1746e7f><0x1746e80><0x1746e81>LETWRITE<0x1746e84>9H4Q9<0x1746e8a>4<0x1746e8c>!<0x1746e8e>GCHR$LENNEXTLINEELSEIF<0x52>l<0x1746e97>9IF<0x1746e9a>4<0x52><0x52>444ELSEIF<0x51>~4<0x1746ea5>6WRITEWRITE6<0x1746eaa><0x1746eab>4INPUTWRITEWENDWENDCALLABS<0x20>>J4<0x1746eb7>!<0x1746eb9>WRITE>440<0x1746ebf>04<0x1746ec2>4      9NEXTWENDINPUTLETWEND<0x52>CHR$<0x1746efa>5             WRITE>Q<0x1746f35>4INPUTELSEIFWRITELETQ                                                                                                                                                          604<0x1746f75>6INPUTSQRWEND<0x20>\WRITE<0x52>(44<0x1746f81><0x1746f82>WRITESQR44<0x1746f87><0x1746f88>      <0x1746fc2>9l4<0x1746fc6>HWRITELETNEXTLETWRITE<0x52>R49k<0x1746fd2>4<0x52><0x52>k<0x1746fd7>6<0x52>WENDLENLENk<0x1746fde>4LEN4G9<0x1746fe4>9~WRITEWENDCHR$CHR$<0x20><0x52>~41025364<0x1746ff4>4LENQ4<0x1746ff9><0x1746ffa>GELSEIFQ<0x1746ffe>4LETNEXTSQRLENWRITE<0x51>LEN49<0x1747009><0x174700a>Q<0x52>ELSEIFk40LET<0x52>44k4GINPUT94INPUTG<0x174701d>kSINWENDCHR$CALLWRITE<0x52>1900l05<0x174702b><0x174702c>5\LET9<0x1747031>!~ELSEIF4<0x1747036>4SQRLINE~CHR$ELSEIF             ~<0x1747073><0x1747074><0x1747075>IF<0x52>IF2<0x174707a><0x174707b>kWRITE.40<0x1747081>Gk<0x1747084>0IF4<0x1747088>HWRITELINECALLELSEWRITEWRITE4<0x1747091>4SQRk<0x1747095><0x1747096><0x1747097>4\WRITE0<0x174709c>!k>G<0x17470a1>4SINSQRINPUTLET<0x52>                          &H547>WRITEH.0<0x17470da><0x17470db>SPACE$MKL$|<0x17470df>4<0x3b>IF9GINPUTQGlWRITEWENDt<0x20>ELSEIFELSE4<0x17470f0>6ELSEIFGOTO4<0x17470f5><0x17470f6>l>WENDj4<0x17470fc>kELSEIFk4oLINELINEEOFLINEELSEIFCHR$9G5502ELSEIFWRITE9G18513WENDWEND                                                         <0x1747142>LINEINPUT32445CDBLRELSEWEND<0x20>CHR$CHR$uEOFuCHR$ELSE<0x20>EOF<0x20>EOFEOF<0x20>EOF<0x20>EOF<0x20>EOF<0x45,0x00><0x1747161>CVICHR$<0x20><0x20>EOF<0x7e>WRITE<0x7e><0x20>&HbfbfSQRWRITEWRITE<0x20><0x20>SQR<0x20>WRITE<0x20>WRITESQR<0x7e><0x20>"ø††É†Ééû†ø                                                                                                                                                              LINELET<0x20>LINE<0x20>WENDLINE<0x20>WEND<0x20>LINELINE<0x20>LETELSELINECHR$ELSEABS<0x20><0x20>CVI<0x7e><0x20>labelffff8e83WRITE<0x7d><0x20>
  40. WEND<0x7c><0x20><0x17471d4>LET<0x20>LINEWENDLINECALLWEND<0x20><0x7c>
  41. <0x9c,0x00><0x17471e1>CHR$CVICHR$CALLEOFCALLELSECHR$CALLEOFASCELSE<0x20>CALLLETLETELSE<0x7d>LET<0x17471f5>LINELETCHR$LET<0x20>CALLLETELSELET<0x20>EOFCALLEOFCALL<0x7e><0x20><0x1747206>EOF<0x20><0x20>CHR$ELSEEOFCALLMOD
  42. 3CALLCVIEOFCALLCHR$CALLELSEELSECALLEOFCVIEOFCALLCVIEOFCVICHR$CHR$EOFEOFCVI<0x7e><0x20><0x1747228>CVICVIEOFCALL<0x20><0x20>CHR$EOF<0x20>LEN<0x20>ELSE<0x7e><0x20>^
  43. <0x20>EOFCHR$EOFEOF<0x20><0x1747243>SQRWENDELSEIFELSEIFWRITE<0x51>ELSEIF<0x52>ELSEIF                                                                                                                                                                                               WRITEELSEIF<0x7c>WRITE
  44. SQR<0x7e>WRITE<0x174728a>SQREOFLENSQRSQR<0x20>EOF^
  45. 128<0x20>ABSCALLELSE<0x20>WRITEABSq~ABSABS~ABS~J<0x7d>~1\lJ9~ll5QINPUTELSEIFWRITEWENDSQRLINE<0x20>CHR$<0x20>WEND^
  46. 3<0x20>ELSECDBLWRITEWRITE>>G<0x17472c6><0x17472c7><0x17472c8><0x17472c9><0x17472ca><0x17472cb>!<0x17472cd><0x17472ce>!<0x17472d0><0x17472d1><0x17472d2><0x7e><0x17472d4><0x7c><0x17472d6>var7cd1<0x7e>><0x17472dc><0x49>SQRWRITELINESQR^
  47. &H8e85CHR$<0x20>ELSEIF<0x52>>G<0x17472ed><0x17472ee><0x17472ef><0x17472f0><0x17472f1>AND<0x17472f3>varffff89cd<0x7e>><0x17472f9>WRITESQRSQR<0x20>EOF^
  48. &CHR$CHR$EOFWRITEELSEIF>>j&Ha0c<0x174730d><0x174730e><0x174730f>0<0x1747311><0x1747312><0x1747313><0x1747314><0x1747315>2244244&H46b>WRITE<0x52>>WRITENEXTWRITESQRSQR^
  49. #CHR$LINECHR$ELSEIFELSEIF>>G<0x1747334><0x1747335><0x1747336><0x1747337><0x1747338>9Glk~kGQLSETGOTOLSETIFGOTOMKL$H<0x1747348>GOTO>WRITE<0x4d>>WRITEWRITE<0x7e>&qCHR$EOFWRITEELSEIF>\IF..0<0x174738e><0x174738f>FOR<0x51>LSETAREA<0x7f>SGNESGN<0x49>SPACE$<0x49>SGNIF>SIN2GOTO>WRITE>>WRITEWRITESPACE$LINESQROR
  50. <0x17473ac>
  51.  
  52. <0x20>CHR$LINEELSEIFELSEIF<0x52>\<0x3b>GCOS<0x7e>08jSQR44WENDH<0x17473c2>6SIN{SINk<0x17473c8>IFWENDGl<0x52>><0x52>>SQRSTR$SQRSQRSTR$^
  53. -1.23782e-35ELSEIF<0x52>>WRITEQ|QHMQWRITEHM<0x4d>IF<0x17473ec>GIFQSQRH<0x17473f2>GINPUTMIF<0x7d>><0x17473f9><0x4d>WRITESQRLINESQR^
  54. WRITEELSEIF<0x52>\>k<0x7e>G
  55. 040MKL$SQR.VAL<0x52><0x1747416>GLSETGSINIF<0x174741c><0x174741d>IFGH<0x51>><0x51>>WRITE<0x7e>SQR
  56. <0x3b>^
  57. &q<0x20>EOFELSEIFELSEIF<0x52>><0x52>|COS|fCOS&Ha598&H7c98GIF|0SPACE$k<0x1747446>GOTOWRITE.LSET<0x4d><0x51>>><0x49>WRITEWRITESQRSQR^
  58. <0x1747456>ELSEqCHR$WRITEELSEIF<0x52>>>LSETFORzLSETLSET.H<0x4d>|HSGNLSETVAL|<0x174746d>LSET                                                                                                                                                                                           SQRlabel306b<0x52><0x7e>>varffffc0c9<0x7e>SQR^
  59. &CHR$CHR$EOFWRITE<0x52><0x52>><0x52>RND<0x45>RND<0x45>REMVY≤Ø∞∑ÈÈj~∑ù“G
  60. l
  61.                                                                                                                                                                                                                                          >WRITEWRITENEXTWENDSQR^
  62. <0x20>ELSEIF<0x52>>>AREA<0x7e>CLNG9USINGTOFIELDFORUSINGUSING<0x51><0x7f><0x7f>FOR4LSETSINHz4!G<0x4d>>>\<0x4d>WRITEWRITESQRNEXT<0x7d>
  63. EQV
  64. labelffff858eCHR$<0x7e>ELSEIFlabelffffe9cdAREA<0x7e><0x50>9USINGSTATICFIELDCVS'SGNSIN<0x7f><0x4d><0x174754c>4INPUTIF<0x1747550>&H21056<0x51><0x51>>>ELSEIFWRITESQRLENSQR^
  65. &CALLCHR$ELSEWRITEELSEIF<0x52>>><0x49><0x49><0x48><0x48>>>VY<0x49>SPACE$COS><0x52>2&H98bb0<0x174757b><0x174757c><0x174757d>4<0x4d><0x51>>><0x4d>WRITEWRITESQRSQR^
  66. varffffa08536799<0x52>ELSEIF<0x52><0x52>WRITEMKL$MKL$AREA<0x4d><0x4d>z{<0x4d>H4WRITEGOTO<0x17475a1><0x17475a2>SINLSET<0x17475a5><0x17475a6><0x17475a7>!H<0x52><0x7e>><0x17475ad>ELSEIFSQRSPACE$SQR<0x3b>^
  67. <0x17475b5><0x20><0x20>CDBLWRITEELSEIF<0x7e><0x52>3384195254SGNELSEIFRNDY<0x17475c6>j&H98bb<0x17475cb>                                                                                                                                                                                           4<0x1747603><0x1747604><0x1747605>4WRITE<0x51><0x52>>WRITEWRITESQRLENSQR^
  68. <0x1747612>LET<0x20>ABSWRITEELSEIFELSEIF<0x52><0x52>ELSEIF<0x49><0x52><0x51>>\<0x51>~MKL$4GOTO<0x1747626>SINGOTO<0x1747629>4<0x49>>IF0&H2134<0x52><0x51>>>WRITEWRITESQRSQR<0x3b>^
  69. &CHR$CHR$CDBLWRITEELSEIF<0x52><0x52>>WRITE<0x3b><0x3b>IFEOFWRITEIFjkk<0x1747650>ko<0x1747653>4INPUTNEXTk0<0x1747659>!9<0x4d><0x51>>><0x52><0x49>SPACE$SQRSQR^
  70. <0x1747667><0x20>CHR$CHR$WRITEELSEIFELSEIF><0x7f>SINE<0x1747672>XOR<0x1747674><0x1747675><0x1747676><0x1747677><0x1747678><0x1747679><0x50>\><0x174767d>>><0x52>WRITEWRITESQRSTR$^
  71. <0x1747687>CALLELSECHR$WRITEELSEIFELSEIF>\SGNE&H4fe<0x1747695><0x7e>            &Hd0c<0x17476c5><0x17476c6>E<0x17476c8><0x17476c9><0x17476ca>.WRITE<0x51><0x51>>                                                                                                                                                                                               <0x7e>SQR^
  72. &H8e83ABSWRITEELSEIFELSEIF<0x52>>><0x51>-\\+<0x7f><0x1747716><0x4d><0x49><0x49>NEXTSQR<0xcb,0x00><0xcb,0x01><0x7e>CHR$<0x52><0x51><0x52>>>\^<0x7f>
  73. \<0x7d>><0x1747732><0x51><0x49>STR$SQRSQR^
  74. 0CVICHR$CHR$WRITEELSEIF<0x52><0x52><0x51><0x51>>\>LSETGOTOGOTOi{h<0x7d>y<0x174774f>hh49105--USING-<0x7f>\<0x4d><0x49>AREASQRSTR$^
  75. <0x1747763>ELSECALLCDBLWRITEELSEIFELSEIF<0x174776a><0x52><0x51><0x51><0x7f><0x7f>'COSE&H404<0x1747776><0x7c><0x1747778><0x1747779>&H40cAREA<0x52><0x51><0x7d>><0x1747782>\<0x49><0x49>WRITESQRSQR^
  76. <0x20>ABS<0x20><0x7e>ELSEIF3<0x52>>\>G&H793MCOMMON<0x174779d><0x174779e>!!<0x17477a1>!!<0x17477a4><0x17477a5><0x17477a6>MKL$<0x7e>><0x17477aa>->\<0x4d>AREA<0x49>WRITE<0x3b>^
  77. 3<0x20>CHR$LENWRITEELSEIFELSEIF<0x51><0x51>><0x7f><0x51>E!G\<0x52>k<0x17477c7><0x17477c8>&H711             <0x1747802><0x1747803><0x1747804>                                                                                                                                                                                                                 <0x51>->><0x4d>WRITE<0x49>SQRSQR^
  78. &<0x20>CHR$CHR$WRITEELSEIF<0x52><0x52>WRITE>\>E!<0x174785b>\<0x7f>SIN0<0x1747860>&Hd0c<0x1747864>&H721<0x1747868>WRITE><0x51>>->><0x51><0x49>WRITESQRSTR$^
  79. 1602585791ELSEIFELSEIF<0x52><0x52>><0x7f><0x52>E<0x1747884>H<0x7f>\FOR0<0x174788a><0x174788b><0x174788c><0x174788d><0x174788e><0x174788f><0x1747890><0x1747891><0x1747892>WRITE><0x52><0x51><0x7e>>varffffc9b7labelffffc9b7SQR^
  80. 0CALLCHR$q<0x20>ELSEIFELSEIF<0x52><0x4d>><0x7f>>G!<0x17478b0><0x7f>\SIN4<0x7e><0x17478b6><0x17478b7><0x17478b8><0x17478b9><0x17478ba><0x17478bb><0x17478bc><0x17478bd>GOTO\<0x7e><0x51><0x17478c2>>\<0x4d><0x49>WRITESQRNEXT^
  81. -1.23716e-35ELSEIF<0x52>ELSEIF<0x52>><0x7f><0x52>E<0x17478d9>4<0x7f><0x7f>IF0<0x17478df>&Hd0a<0x17478e3><0x17478e4><0x17478e5>!<0x17478e7>ELSEIF><0x51><0x7d>><0x17478ed><0x49>SQRSPACE$SQRSTR$IMP
  82. <0x7c>
  83. 4CVICHR$CHR$<0x20>WRITEWRITEELSEIFELSEIF<0x52>>>0<0x1747904><0x1747905>INPUTWRITEH4<0x174790a><0x174790b><0x174790c><0x174790d><0x7e><0x174790f><0x1747910>!<0x1747912>SIN><0x51><0x52>><0x52><0x52>ELSEIFSQRSQREOFEOF^
  84. <0x1747921><0x20>CALLq<0x20>ELSEIFELSEIF                                                                                                                                                                                                                                         <0x7f>>COS!&H450c<0x1747959><0xd0,0xfffffffb>4<0x174795e><0x174795f><0x1747960>WRITE\<0x4d>>\>>AREAWRITE<0x49>NEXTNEXT^
  85. CHR$CHR$CALL<0x7d><0x20>varffffbfe94923399<0x174797e><0x174797f>459920789Q59HVALELSEIFVALELSEIFWRITELET<0x20>LINEEOFCHR$<0x20>EOF^
  86. !ELSE<0x20>EOFCVIEOF<0x20><0x20>SQR<0x20>ELSEIFSQR<0x17479a5>k<0x17479a7>IFIFMID$SGNAREA<0x49>''STATIC''AREA<0x49><0x49>WRITEWRITESQRSPACE$SQRSTR$<0x7e>SQRvarffffa08f^
  87. 7tCHR$<0x20>CALLEOFCHR$EOFqABSCDBL<0x20><0x52>R4~ELSEIF~5l55<0x17479d9><0x17479da>5LEN<0x17479dd>WRITEWRITE<0x20>SQRCHR$WEND<0x7e>LINE<0x17479e6>ELSECHR$<0x20>ELSE<0x20>^
  88. &CHR$CALLCDBLCALLEOFtCHR$EOF^CDBL<0x20><0x52>*<0x17479fc>9WRITE4<0x1747a00>G&Ha04<0x1747a05><0x1747a06>kINPUT<0x3b>WRITESQRLINEEOFCDBLCHR$EOFCHR$EOFCHR$CVIEOF^
  89. '<0x20>CALLCHR$<0x20>ELSECALL<0x20>ABS                                                                                                                                                                <0x52>1564ELSEIF4<0x1747a58>R6<0x1747a5b>l6<0x1747a5e>4LINEINPUTLINENEXTCHR$LINELINECHR$<0x20><0x20>ELSELINELET<0x20>
  90. AND
  91. &CHR$CVIEOFCALLEOF<0x20>CHR$ELSEuCDBL<0x20>ELSEIF9<0x1747a7f>*<0x52>4<0x1747a83>~~<0x1747a86>~~<0x1747a89>4CHR$SQRDATALINECHR$<0x20><0x20>CALLEOF<0x20>CHR$EOFCHR$CDBL^
  92. <0x1747a9b>CHR$tELSECVIEOF<0x7d>CHR$1.8997e+30<0x1747aa8>9WEND4<0x1747aac>~k<0x1747aaf>G6&H169a<0x3b>LINEWRITELINE<0x20>CHR$CALLLINE<0x20><0x20>ELSE<0x20><0x20>AND
  93. '
  94. CALLCHR$ELSECALLCHR$<0x20>CALLABSCALL                                                                                                                                                                                                                  (<0x1747b03>4ABS4<0x1747b07>~l44<0x1747b0c><0x1747b0d>4ABSLENLINELINECHR$<0x20>WENDCHR$EOFCALLCHR$EOFCHR$EOF^
  95. &CALLCALLELSECALLCHR$CALLCHR$CHR$^q<0x20><0x52>94<0x1747b2e>4<0x1747b30><0x1747b31>R~4&Hd0d~NEXTNEXTLETLINEWEND<0x20><0x20>CALLLENCHR$ELSEEOFCALLEOF^
  96. <0x1747b49>CHR$tEOFuCHR$CVI<0x7d>CHR$ELSEIFR47<0x1747b58><0x1747b59><0x1747b5a>!Q~<0x1747b5e><0x1747b5f>20893LINELINE<0x20>EOFCALLCVIELSE_EOF<0x20>CHR$<0x20><0x20>EOF^
  97. &H83a0EOFCVIELSECALL<0x20>CALL^qWRITE<0x52>R<0x7e><0x1747b82>2!<0x1747b85>~IF<0x1747b88>4WRITEELSEIFWENDWRITENEXT<0x20>SQRELSE<0x20>EOFCVIEOFCALLCHR$<0x7e><0x20>^
  98. 33631                                                                                                                                     CALLCHR$CHR$uRCVI<0x52>94<0x1747bdb>4<0x1747bdd><0x1747bde>5H<0x1747be1><0x1747be2>RWENDLETLINEELSECALLELSE<0x1747bea>ELSECHR$ELSE<0x20>ELSE<0x7e>CHR$varffffa08f^
  99. &<0x20>ELSELENCHR$<0x20><0x20>ABSELSECALLq<0x20><0x52>3085CHR$4<0x1747c09>4<0x1747c0b><0x1747c0c><0x1747c0d><0x1747c0e>SGNSPACE$NEXT<0x3b>LINESQR<0x20><0x20>LINE<0x20>EOFCALLELSEEOFCALL<0x20>^
  100. &CALLCHR$CHR$uCDBLuCHR$aCVIaCVI<0x52>q<0x1747c2f><0x1747c30>WRITE~4G4<0x1747c36><0x1747c37>4INPUTNEXTCHR$SQRELSECHR$<0x20>ELSEELSECALLELSE                                                                                                                                   CHR$EOF<0x7c>
  101. IMP
  102. 142CHR$EOFCHR$EOFCALLCVIEOFCALLELSEuCHR$CHR$RCDBLWRITE<0x7e>EOF2CDBLCDBLEOFEOF<0x20>EOFCHR$EOFCHR$CHR$CALLCVIEOFCVIEOF<0x20><0x20>EOF<0x20>EOF^
  103. 1CHR$ELSECHR$CALLEOFCHR$EOFCALLCHR$CHR$CALLCHR$CHR$CVI<0x20>CALLELSELINE<0x20><0x7e>WEND<0x1747cb8>WRITEWEND<0x20><0x20>LINECALLCHR$CALLCHR$<0x20>CHR$CHR$CVIELSECHR$CALL<0x20>^
  104. labelffff8583<0x20>1.09019e-314<0x20><0x20>CALLEOFCALLELSE<0x20>CHR$CHR$CVIELSEu<0x20>CALLCALLCHR$CALL<0x20><0x20>CALLELSE<0x20>CALLCALL<0x7e><0x20>
  105. CHR$^
  106. <0x7e>CHR$CHR$                                                                                                                                     CALLEOF<0x7e>CHR$1CVICHR$CALLCHR$CALLuCHR$CALLCHR$CALL<0x20>ELSECALLCHR$CALLCHR$CHR$CVIEOF<0x7d>CHR$
  107. <0x20>^
  108. 0CALLCALLEOFCALLEOFCALLCHR$CHR$_EOFut<0x20>CALLCHR$ASCCVICVI3CHR$CHR$CVICHR$CALLCHR$<0x20>CVICHR$u<0x20>CVICVI<0x20>CVIELSECALLCHR$CALLCALLEOF^
  109. &H8385CALLCALLCHR$CALLCVICALLCALLCHR$CALLEOFCALL<0x7e>CHR$5EOFCALLCALLELSECHR$ELSECALLELSE<0x20>CALLCHR$uABS_CALL<0x20>uELSE<0x20>CHR$<0x20>CALL<0x20><0x89,0x00>
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.